home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 002a / vaxgames.zip / XTR.COM < prev   
Text File  |  1991-07-24  |  530b  |  13 lines
  1. $ ! Generic procedure to extract the contents of ANY library created with
  2. $ !     the MAKE_TLB.COM procedure.
  3. $ ! Get a name for the .TLB
  4. $    LIBRARY_NAME = P1
  5. $GET_LIBRARY_NAME:    
  6. $    IF LIBRARY_NAME .EQS. "" THEN INQUIRE LIBRARY_NAME "Name for .TLB file"
  7. $    IF LIBRARY_NAME .EQS. "" THEN GOTO GET_LIBRARY_NAME
  8. $    IF F$LOCATE(".",LIBRARY_NAME) .EQ. F$LENGTH(LIBRARY_NAME) THEN -
  9.       LIBRARY_NAME = LIBRARY_NAME + ".TLB"
  10. $ ! 
  11. $    LIBRARY /EXTRACT=EXTRACT_TLB^COM /OUT=EXTRACT_TLB.COM  'LIBRARY_NAME'
  12. $    @EXTRACT_TLB  'library_name'
  13.